#include <iostream>
#include <string>
#include <bits/stdc++.h>
#include <vector>

std::size_t strlen_utf8(const std::string& str) {
	std::size_t length = 0;
	for (char c : str) {
		if ((c & 0xC0) != 0x80) {
			++length;
		}
	}
	return length;
}

int main() {
    setlocale(LC_ALL, "ru");
    std::string alpha = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ";
    std::string latin = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
    int capital = 0;
    int haslatin = 0;
    int less3 = 0;
    int dashes = 0;

    std::string rawText;
    std::cin >> rawText;

    std::vector<std::string> textVec;
    getline(std::cin, rawText);
    std::string temp;
    std::stringstream ss(rawText);

    while(getline(ss,temp, ' ')) {
        textVec.push_back(temp);
    }


    if (textVec.size() < 2) {
        std::cout << "Мало данных для анализа" << std::endl;
        return 1;
    }

    std::vector<int> sizes;
    for(std::string word : textVec) {
        sizes.push_back(word.length());
    }

    for(std::string word : textVec) {
        if(alpha.find(word[0]) != std::string::npos) {
            capital += 1;
        }

        for(char character : word) {
            if(latin.find(character) != std::string::npos) {
                haslatin += 1;
                break;
            }
        }
        
        if (word.size() < 3) {
            less3 += 1;
        }

        if (word.find('-') != std::string::npos) {
            dashes += 1;
        }
    }

    int max = *std::max_element(sizes.begin(), sizes.end());
    auto it = std::find(sizes.begin(), sizes.end(), max);
    int maxIndex;
    if (it != sizes.end()) { 
        maxIndex = it - sizes.begin();
    }

    std::cout << "Кол-во слов: " << textVec.size() << std::endl;
    std::cout << "Кол-во слов с заглавной кириллической буквы: " << capital << std::endl;
    std::cout << "Кол-во слов содержащих латинский символ: " << haslatin << std::endl;
    std::cout << "Кол-во слов не превышающих 3 символа: " << less3 << std::endl;
    std::cout << "Кол-во слов в составе которых пишется дефис: " << dashes << std::endl;
    std::cout << "" << std::endl;
    std::cout << "Самое длинное слово: " << textVec[maxIndex] << std::endl;
    std::cout << "Длина слова: " << strlen_utf8(textVec[maxIndex]) << std::endl;
}
